<% ARQUIVO = "tabela_preco" vfamilia ="" vfamilia = Request("familia") vfornecedor = "" vfornecedor = Request("fornecedor") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" SQL2 = "SELECT * FROM TABELA_PRECO" Set RS2=OBJdbConnection.Execute(SQL2) vdolardia = rs2("dolar") RS2.CLOSE If vfamilia <> "" then SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM TABELA_PRECO WHERE FAMILIA ='" & vfamilia & "' ORDER BY FORNECEDOR,TIPO" end if if vfornecedor <> "" then SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM TABELA_PRECO WHERE FORNECEDOR ='" & vfornecedor & "' ORDER BY FORNECEDOR,TIPO" end if Set RS=OBJdbConnection.Execute(SQL) if RS.EOF then erro = "1" end if if trim(Session("email_carrinho")) <> "" then vrevenda = Session("email_carrinho") else vrevenda = "" end if %>
<% if trim(vrevenda) = "" then %>
<% else %>
<% end if %>
<% if trim(vrevenda) = "" then %> <% else %> > <% end if %>
DOLAR : <%= vdolardia %>
<% do while not rs.eof %> <% rs.movenext %> <% loop %> <% OBJdbConnection.close %>
FORNECEDOR PRODUTOS
QTD
<% = rs("fornecedor") %>
&fornecedor=<%= rs("fornecedor")%>" target="mainFrame"><%=UCASE(RS("tipo"))%> <% SQL2 = "SELECT COUNT (tipo) AS qtdtipo FROM tabela_preco where tipo ='" & rs("tipo") & "' and fornecedor ='" & rs("fornecedor") & "'" %> <% Set RS2=OBJdbConnection.Execute(SQL2) %> <% vqtd = rs2.fields ("qtdtipo")%>
<% = vqtd %>